PROGRAM CCSD
!
! INCORE PROGRAM FOR CCSD CALCULATIONS 
!
use mod_iop
use mod_symm
use mod_orbit
use mod_size
implicit none
integer prec2, isd2, igpu2, totgpu2
common/precsoc/prec2, isd2, igpu2, totgpu2
integer nvn, non, i0
integer ie, iend, ifij, ifab
integer ifia, it1, it2, iijkl, iijka 
integer it12, it22, ir12, ir22, iend2
integer iiabj, iabij, iabci, iabcd, ir1, ir2
integer ifmi, ifae, ifme
integer iwmnij, iwmbej
integer maxcore, nneed
integer, external :: irpdso, idsymsoc
real*8 tt1, tt2, rt1, rt2
real*8 escf, eccsd, eccsdt
real*4, allocatable :: icore(:) 
!
call cpu_time(tt1); call walltimeso(rt1)
call readinp
call read_mod
write(6,*)'finished read mod'
icrsiz = 1024*1024*1024*80/8
prec2=prec; isd2=isd;  igpu2=igpu; totgpu2=totgpu
allocate(icore(icrsiz*2))
!
! various lengths
!
nvn = nva + nvb
non = noa + nob
!
ie=1
iend=ie+(nvn+non)*isd
!
!write(6,*)'norb', nva, noa, nvb, nob
!memory fo t1, t2 and r1, r2
it1 = iend
iend = it1 + nifvo*isd
write(6,*)'begin ccsdt calculation'
call ccsdt(icore, eccsdt)
!
end



















